COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST1"
C00004 ENDMK
C⊗;
BEGIN "TEST1"
	DEFINE α="COMMENT";DEFINE π="3.1415927";
	REQUIRE "GEOMES.HDR[GEM,HE]" SOURCE_FILE;
	INTEGER B1,B2,F,E,V,V0,T;
	INTEGER WORLD,WINDOW,CAMERA;

	GEONIT;
	B1 ← MKCUBE(4.0,1.0,2.0);
	TRANSLATE(B1,0,0,4);
	GEOMED;
WHILE TRUE DO 
BEGIN
	ROTATE(B1,π/32,π/32,0);
	SHOW1(0,1);
END;
END "TEST1"; BGB 19 MARCH 1973.